home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / HCOPY .NAV (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  71 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2010 GOTO2185
  3. 2070 POKECH,C1:GOSUB515:IFD5=0THEND5=D2:HF=0
  4. 2072 OL=1:O1=1:ONFMGOTO2080,2135,2135
  5. 2080 R=5:C=29:GOSUB115:POKECH,C7:PRINT"  [200]COPY   ":
  6. 2081 IFDT<9THENPRINT"OPERATES ON HD/RL ONLY...":POKE198,0:WAIT198,1
  7. 2082 CLOSE15:IFDT<9THEN2185
  8. 2083 IFDC=1THENGOSUB1195:EX=0
  9. 2084 POKECH,C1:GOSUB7000:IFEXTHEN2185
  10. 2085 FM=1:GOSUB2125:GOTO300
  11. 2115 IFFM=2THEN2135
  12. 2120 GOTO2127
  13. 2125 FORT=0TOD5:N$(T)=" "+TM$(T):TY$(T)=B1$(T):NEXT:FS=D2+1:N$(FS)="*[211]ELECT [193]LL"
  14. 2126 TY$(FS)="":DM=D3:RETURN
  15. 2127 I$="*":IFF=FSANDLEFT$(N$(1),1)="*"THENI$=" "
  16. 2128 IFF=FSTHENFORT=1TOD5:N$(T)=I$+MID$(N$(T),2):NEXT:GOSUB480:GOTO305
  17. 2130 IFLEFT$(N$(F),1)="*"THENN$(F)=" "+MID$(N$(F),2):GOSUB480:GOTO305
  18. 2132 N$(F)="*"+MID$(N$(F),2):GOSUB480:GOTO305
  19. 2135 POKEV+21,0:U=0
  20. 2136 U=U+1:IFU=D5+1THEN2142
  21. 2137 IFLEFT$(N$(U),1)<>"*"THEN2136
  22. 2138 N$=MID$(N$(U),2):TY$=TY$(U):IFDM=3THENN$=ID$+N$
  23. 2140 GOTO 5000
  24. 2141 GOTO2136
  25. 2142 GOSUB3056:POKECH,C1:GOSUB1025:S1=1:GOSUB260:S1=0
  26. 2185 GOSUB3056:GOSUB1185:R=5:C=29:GOSUB115:POKECH,C2:PRINT"  [200]COPY   ":POKECH,C1
  27. 2195 EX=0:D5=0:LL=0:O1=0:FM=0:HF=0
  28. 2198 GOTO300
  29. 3005 POKECH,C7
  30. 3007 PRINT"";:FORT=1TOLL+LEN(MS$):PRINT" ";:NEXT:PRINT""MS$;:POKE198,0
  31. 3010 OPEN9,0:A$="":B$="":POKE204,0
  32. 3015 GET#9,A$:IFA$=""THEN3015
  33. 3020 IFA$=CHR$(13)THENA$="":CLOSE9:PRINT" ";:POKE204,1:GOSUB3056:POKECH,C1:RETURN
  34. 3025 IFA$=""ORA$="[157]"ORA$="[145]"ORA$=""THENGOTO3015
  35. 3030 IFA$=""ORA$="[147]"THEN3015
  36. 3035 IFLEN(B$)=LLTHENPRINT" ";:A$=CHR$(13):GOTO3020
  37. 3040 IFB$=""ANDA$=CHR$(20)THEN3015
  38. 3045 IFA$=CHR$(20)THENPRINT" [157][157] [157]";:B$=LEFT$(B$,LEN(B$)-1):GOTO3015
  39. 3050 B$=B$+A$:PRINTA$;:GOTO3015
  40. 3055 RETURN
  41. 3056 PRINT"[146]";:FORT=1TO38:PRINT" ";:NEXT:RETURN
  42. 5000 EX=0:CLOSE15:GOSUB9000:OPEN15,DV,15
  43. 5018 PRINT#15,"C"+CP$+N$"="S$+N$
  44. 5019 GOSUB200:IFEN>19THENGOSUB215
  45. 5020 GOTO2136
  46. 7000 FORT=0TO9:N$(T)=CP$(T):TY$(T)="":NEXT:FS=9:GOSUB480
  47. 7003 POKECH,C7:PRINT"USE THIS DESTINATION PATH?  (Y/N)  ":POKE198,0
  48. 7005 GETB$:IFB$=""THEN7005
  49. 7007 IFB$<>"Y"THENEX=1:GOTO7095
  50. 7008 B=VAL(MID$(CP$(1),3))
  51. 7010 CP$=STR$(B)+"/"
  52. 7015 FORT=2TO9
  53. 7017 :IFCP$(T)=""THENT=9:GOTO7030
  54. 7020 :IFVAL(MID$(CP$(T),2))=8THENT=9:NEXT:GOTO7050
  55. 7025 :CP$=CP$+"/"+MID$(CP$(T),3)
  56. 7030 :NEXT:
  57. 7035 CP$=CP$+"/:"
  58. 7040 OPEN15,DV,15,"G-P":GET#15,B$:GET#15,B$:GET#15,B$:CLOSE15
  59. 7045 B=ASC(B$):S$=STR$(B)+":":GOTO7095
  60. 7050 GOSUB3056
  61. 7051 POKECH,C7:PRINT"CANNOT USE THIS PATH... ":POKE198,0:WAIT198,1:EX=1
  62. 7060 :
  63. 7065 :
  64. 7070 :
  65. 7075 :
  66. 7095 POKECH,C1:GOSUB3056:RETURN
  67. 9000 MS$="  COPYING: "+N$+" "
  68. 9001 IFLEN(MS$)<30THENMS$=MS$+" ":GOTO9001
  69. 9005 POKECH,C3:R=2:C=5:GOSUB115:PRINT""MS$
  70. 9010 POKECH,C1:RETURN
  71.